8bitfiles.net/archives/archives.tar/archives/commodore-users-of-norman/CUON_26_(10-1984).d64/balloon blitz_64

Commodore BASIC | 2019-04-13 | 6KB | 159 lines

1 PRINT"[147]":GOSUB100
2 IF BO=0THEN 50
3 A=PEEK(56320):IFA=123THENX=X-S
4 IFA=119THENX=X+S:IFA=123THENX=X-S
5 IFX>255THENX=22
6 IFX<22THENX=255
7 POKEV+12,X
8 Z=Z-1.5*D:IFZ<24THENZ=255
9 IFZ>255THENZ=24
10 POKEV+6,Z
11 CM=CM+H:POKEV+4,CM:POKEV+14,CM+25:IFCM=204THENH=H*-1
12 IFCM=24THENH=H*-1
13 GETA$:T=VAL(A$):IFT>0ANDT<10THENPRINT"";TAB(13)"SPEED ";T;"":S=T/1.75
14 IFA>117THENGOTO3
15 FORI=MTOM+24:POKEI,0:NEXT:POKEM+24,15:POKEM+5,31:POKEM+6,0:POKEM+4,35
16 BO=BO-1:PRINT"":PRINTTAB(34)BO;"[157]  "
17 D=INT(RND(1)*DS+0):D=D-SUB:POKEV+30,0:POKEV+3,90:POKEV+2,X
18 FORI=1TO12
19 A=PEEK(56320):IFA=119ORA=103THENX=X+S
20 IFA=123ORA=107THENX=X-S
21 IFX>255THENX=22
22 IFX<22THENX=255
23 POKEV+12,X
24 Z=Z-1.5*D:IFZ>255THENZ=24
25 IFZ<24THENZ=255
26 POKEV+6,Z
27 CM=CM+H:POKEV+4,CM:POKEV+14,CM+25:IFCM=24THENH=H*-1
28 IFCM=204THENH=H*-1
29 POKEV,205:POKEV+3,90+I*10:COL=PEEK(V+30):IFCOL=142ORCOL=206THENGOTO33
30 POKEM,240-I*5:POKEM+1,240-I*5:NEXT
31 POKEM,0:POKEM+1,0:POKEM+4,0:D=INT(RND(1)*DS+0):D=D-SUB
32 POKEV+2,0:MI=MI+1:PRINTTAB(34)"";MI:GOTO2
33 POKE2043,203:POKEV+2,0:POKEV+28,57:POKEM,255:POKEM+1,4:POKEM+2,0
34 POKEM+3,8:POKEM+5,63:POKEM+6,90:POKEM+4,129
35 FORI=1TO3:FORJ=1TO30:POKEV+42,J/10:NEXT:NEXT
36 POKEV+28,49:POKEV+30,0:POKE2043,201:POKEV+42,12:FORI=MTOM+24:POKEI,0:NEXT
37 D=INT(RND(1)*DS+0):D=D-SUB
38 HI=HI+1:PRINTTAB(34)"";HI:GOTO2
50 AV=HI/20
51 IFAV>=.95THEN AV$="**GENERAL**":GOTO57
52 IFAV>=.85THENAV$="  MAJOR  ":GOTO57
53 IFAV>=.75THENAV$=" CAPTAIN ":GOTO57
54 IFAV>=.50THENAV$=" SERGEANT ":GOTO57
55 IFAV>=.25THENAV$=" CORPORAL ":GOTO57
56 AV$=" PRIVATE "
57 PRINT"          GAME OVER              "
58 FORI=1TO300:NEXTI
59 FORJ=1TO20:PRINT"[145]     RANK: ";AV$:FORI=1TO50:NEXTI
60 PRINT"[145]     RANK: [146]";AV$:FORI=1TO50:NEXTI:NEXTJ
61 PRINT"[145]      ANOTHER GAME(Y/N)?        "
62 GETAN$:IFAN$<>"Y"ANDAN$<>"N"THEN62
63 IFAN$="N"THENPOKE254,0:SYS254
64 PRINT"[145]  WHICH LEVEL OF PLAY 1-6
65 [161]LE$:[139]LE$[179]"1"[176]LE$[177]"6"[167]65
66 LE[178][197](LE$):[139] LE[178]1 [167] DS[178]2:SUB[178][171]1
67 [139] LE[178]2 [167] DS[178]3:SUB[178]0
68 [139] LE[178]3 [167] DS[178]3:SUB[178]1
69 [139] LE[178]4 [167] DS[178]4:SUB[178]2
70 [139] LE[178]5 [167] DS[178]6:SUB[178]3
71 [139] LE[178]6 [167] DS[178]7:SUB[178]4
72 D[178][181]([187](1)[172]DS[170]0):D[178]D[171]SUB
73 X[178]150:Y[178]130:S[178]1:Z[178]0:BO[178]20:HI[178]0:MI[178]0:T[178]1
74 [129]I[178]M[164]M[170]24:[151]I,0:[130]
75 [153]"ON             LEVEL ";LE;"CMD           WAIT"
76 [153]"":[153][163]13)"SPEED  1"
77 [153]"":[153][163]35)"20"
78 [153][163]34)"   "
79 [153][163]34)"   "
80 [137]2
100 V[178]53248:M[178]54272:CM[178]24:CN[178]25:H[178].5:X[178]150:Y[178]130:S[178]1:Z[178]0:BO[178]20:HI[178]0:MI[178]0
101 [151]2040,204:[151]2041,202:[151]2042,205:[151]2043,201:[151]2044,204
102 [151]2045,204:[151]2046,200:[151]2047,205:[151]V,205:[151]V[170]1,200
103 [151]V[170]4,24:[151]V[170]5,63:[151]V[170]6,0:[151]V[170]7,205:[151]V[170]8,150:[151]V[170]9,170
104 [151]V[170]10,60:[151]V[170]11,183:[151]V[170]12,150:[151]V[170]13,80:[151]V[170]14,49:[151]V[170]15,57
105 [151]V[170]23,149:[151]V[170]28,49:[151]V[170]29,133:[151]V[170]37,13:[151]V[170]38,5:[151]V[170]39,9
106 [151]V[170]40,14:[151]V[170]41,15:[151]V[170]42,12:[151]V[170]43,9:[151]V[170]44,9:[151]V[170]45,14
107 [151]V[170]46,15:[151]53280,2
108 [129]I[178]0[164]24:[151]M[170]I,0:[130]
109 [151]M[170]5,85:[151]M[170]6,85:[151]M[170]12,85:[151]M[170]13,85:[151] 53280,2
110 [153]"LOAD";[163]6)"  WELCOME TO BALLOON BLITZ":[153]""
111 [151]M[170]24,15:[151]M[170]4,33:[151]M[170]11,17
112 [129]FF[178]1[164]6:[135]H1,L1,H2,L2:[151]M[170]1,H1:[151]M,L1:[151]M[170]8,H2:[151]M[170]7,L2
113 [153][163]9)"ON ** YOUR  MISSION ** "
114 [139]H1[178]50[167][129]T[178]1[164]200:[130]
115 [129]T[178]1[164]100:[130]
116 [153][163]9)"WAITON ** YOUR  MISSION ** ":[130]FF
117 [129]I[178]M[164]M[170]24:[151]I,0:[130]
118 [153]"CONT  <PATROL FIELDS IN A HOT AIR BALLOON>"
119 [153]"  <DESTROY ENEMY TANKS IN YOUR SECTOR>"
120 [153]"        PUT JOYSTICK IN PORT 2"
121 [153]"        PUSH FIRE BUTTON TO DROP BOMBS"
122 [153]" CONTROL YOUR SPEED WITH THE NUMBER KEYS":[153] [163]16)"1=SLOWEST"
123 [153][163]16)"9=FASTEST":[153][163]12)"ONE MOMENT PLEASE"
124 [129] I[178]0 [164] 5:[129] N[178]0 [164] 62:[135] Q:[151] 12800[170](I[172]64)[170]N,Q:[130]:[130]
125 [129]I[178]1[164]10:[161]A$:[130]
126 [153]"ON     ENTER LEVEL OF PLAY 1 THROUGH 6 "
127 [153][163]16)"1=EASIEST":[153][163]16)"6=HARDEST"
128 [161] LE$:[139] LE$[179]"1"[176] LE$[177]"6"[167]128
129 A$[178]"1":LE[178][197](LE$)
130 [139] LE[178]1 [167] DS[178]2:SUB[178][171]1
131 [139] LE[178]2 [167] DS[178]3:SUB[178]0
132 [139] LE[178]3 [167] DS[178]3:SUB[178]1
133 [139] LE[178]4 [167] DS[178]4:SUB[178]2
134 [139] LE[178]5 [167] DS[178]6:SUB[178]3
135 [139] LE[178]6 [167] DS[178]7:SUB[178]4
136 D[178][181]([187](1)[172]DS[170]0):D[178]D[171]SUB
137 [153]"LOAD": [151] 53280,0:[151] 53281,0
138 [129] I[178]1 [164] 17
139 [153]"                                WAIT"
140 [130]
141 [153][163]21)"ONSTEP(null)"
142 [153]"                                WAIT"
143 [153][163]21)"ONSTEP(null)STEP  (null)STEP(null)"
144 [153]"                                WAIT"
145 [153][163]20)"ONSTEP(null)STEP  (null)  (null)  (null)"
146 [153]"                                WAIT"
147 [153][163]19)"ONSTEP (null)    (null)(null)    "
148 [153]"PRINT                                WAIT"
149 [153][163]19)"ONSTEP      (null)"
150 [153]"PRINT                                WAIT"
151 [153]"PRINT                                WAIT"
152 [153]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREWAIT"
153 [153]"            LEVEL:";LE;"CMD            WAIT"
154 [129] I[178]0 [164] 31
155 [151] 1984[170]I,160
156 [151] 56256[170]I,5
157 [130]
158 [153] "";[163]33)"BOMBS"
159 [153] [163]33)"LEFT"
160 [153] [163]33)"HITS"
161 [153] [163]33)"MISS"
162 [153] [163]13)"SPEED  ";A$;""
163 [153]"";[163]35)"20"
164 [151]V[170]21,255
165 [142]
200 [131]25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162,42,62,31,165,50,60
201 [131]37,162
202 [131] 0,127,0,1,255,192,3,255,224,3,255,224
203 [131] 7,255,240,7,255,240,7,255,240,3,255,224
204 [131] 3,255,224,3,255,224,2,255,160,1,127,64
205 [131] 1,62,64,0,156,128,0,156,128,0,73,0,0,73,0
206 [131] 0,62,0,0,62,0,0,62,0,0,28,0
207 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
208 [131] 127,224,63,255,224,63,255,224,0,127,224,0,63,192,63,255,252
209 [131] 127,255,254,255,255,255,255,255,255,127,255,254,63,255,252
210 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
211 [131] 0,0,0,0,0,0,0,0,0,0,102,0,0,126,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60
212 [131] 0,0,24,0
213 [131] 10,170,160,42,170,168,170,170,170,170,170,170,170,170,170,170,170,170
214 [131]170,170,170,170,170,170,170,170,170,42,255,42,29,170,56,0,170,0
215 [131] 0,170,0,0,170,0,0,170,0,0,170,0,0,170,0,0,170,0,97,170,134,170,170
216 [131] 170,42,170,168
217 [131] 0,60,0,0,255,0,3,255,192,15,253,240,15,63,240,63,255,252,63,255,252
218 [131] 63,247,220,63,255,252,63,247,220,61,255,252,63,255,252,15,255,240
219 [131] 15,247,240,3,255,192,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0
220 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,255
221 [131] 224,31,255,248,63,255,252,127,255,254,255,255,255,255,255,255,255
222 [131] 255,255,127,255,254,63,255,252,31,255,248,7,255,224